# =============================================================================
#'
#' @title Set Environment
#'
#' @description Sets default environment variables for GEOtopR
#'
#' @details This function sets default environment variables for GEOtopR. The
#' resulting list can then be changed manually if required.
#'
#' @export
#' @examples
#' env <- SetEnv()
#'
#' @return Returns a list with standard values (e.g., the comment character) 
#' that are needed to read and understand GEOtop parameter files.   
#'
#' @author Stephan Gruber <stephan.gruber@@carleton.ca>
#'
# =============================================================================
SetEnv <- function() { 	
	env <- list(comchar = "!",    #indicate comments
                quochar = "\"",   #quote character
                splchar = "=",    #separate variable name and content
                vecchar = ",",    #separate vector elements
                textext = ".txt", #extension used on text files
                sufxrec = "_crec",#text string to indicate recovered files
                timefmt = "%d/%m/%Y %H:%M", #descrition of date format used
                nodata  = -9999,  #numer to indicate no data
                masterd = "_master",   #master directory with files to soft-link
                templad = "_template", #template directory with fiels to alter
                digitsd = 6,           #number of digits for simulation paths
                simdirs = c("/in","/out","/out/rec"), #sub-directories of spath
                inputd  = "/in",        #sub-directory with all input
                parfile = "geotop.inpts") #standard name of parameter file         
	return(env)
}